home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2001-07_2001_CSW_Side_A.d64
/
audio in (eng)
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
215 lines
10 rem audio in
11 rem (w)1990 by t.baade
12 rem (x)2001
13 rem email:
14 rem torsten@sport-moeller.de
15 rem ------------------------
20 poke 53280,6:poke 53281,6:rem color
30 poke 788,52:rem stop-off
40 poke 650,128
50 poke53370,0:rem scpu -> 1 mhz
60 print"[147][158] [193][213][196][201][207] in ";
70 print" (w)1990 by [212]orsten [194]aade "
100 print "_ - 0 [214]olume : 15 "
110 print "e [198]ade [201]n [210]ate : 200"
120 print "a [198]ade [207]ut [210]ate : 200"
130 print "t [212]remolo [197]ffect [210]ate : 3 "
140 print"p [198]ilter on/[150]off[146]"
150 print "@ [200]igh [208]ass on/[150]off"
160 print "* [194]and [208]ass on/[150]off"
170 print "^ [204]ow [208]ass on/[150]off"
180 print"+ - [195]ut-[207]ff-[198]requency : 140"
190 print"f1[146]-f7[146] [195]ertain [195]ut-[207]ffs
200 [153]"r (NULL)esonance on/defoff"
210 [153]"\ (NULL)ah - (NULL)ah (NULL)ate : 30
220 print"home[146] [215]oi - [215]oi [210]ate : 30
230 [153]"delwait (NULL)ah - (NULL)oi (NULL)ate : 30
235 print"[155] [195]hange [210]ate with [195]=[146] + [203]ey "
240 si=54272:la=si+24
250 pokela,15:a=15
260 re=200:ra=200:rt=3:gf=140:rh=30:ro=30:ri=30
270 dim a(10):data 15,1,2,3,4,5,7,9,11,13,0
280 forl=0to10:read a(l):next
290 poke si+21,7:poke si+22,140:pokesi+23,0
298 ::::::::::::::::::::::::::::::::::::
299 poke 198,0:wait 198,1
300 print""tab(34)" [157][157][157]"a""
310 get a$:if a$=""then 310
315 :::::::::::::::::::::::::::::::::::
320 if a$="e"goto 400
323 if a$="[177]"goto 491
325 if a$="a"goto 500
328 if a$="[176]"goto 591
330 if a$="t"goto 600
333 if a$="[163]"goto 691
335 if a$="p"goto 700
337 if a$="r"goto 750
340 if a$="@"goto 800
350 if a$="*"goto 850
351 if a$="[135]"goto 950
352 if a$="[136]"goto 950
355 if a$="^"goto 900
356 if a$="+"goto 950
357 if a$="-"goto 950
358 if a$="[133]"goto 950
359 if a$="[134]"goto 950
360 if a$="[168]"goto 1000
362 if a$="[147]"goto 1010
364 if a$="[148]"goto 1020
366 if a$=chr$(13)then run
370 if a$="\"then 1100
373 if a$=""then 1300
375 if a$=""then 1500
380 if a$=chr$(3)then ra=80:b$="s":goto500
389 :::::::::::::::::::::::::::::::::::
390 if a$="_"then a$="10"
395 poke la,a(val(a$))orfm
396 a=a(val(a$))
399 goto 300
400 rem einblenden
410 print""tab(10)"[150][198]ade [201]n "
420 for l=a to 15
430 poke la,lorfm
435 print""tab(34)" [157][157][157]"l""
440 forl1=0tore
450 next
460 get a$:if a$<>""thena=l:goto 480
465 next l
470 a=15
480 print""tab(10)"[198]ade [201]n "
490 goto 300
491 print""tab(33);
492 input re
493 print"":print""tab(33)":"
494 goto 300
500 rem fade out
510 print""tab(10)"[150][198]ade [207]ut "
520 for l=a to 0 step-1
530 poke la,lorfm
535 print""tab(34)" [157][157][157]"l""
540 forl1=0tora
550 next
560 get a$:if a$<>""thena=l:goto 580
565 next l
570 a=0
580 print""tab(10)"[198]ade [207]ut "
585 if b$="s"thenpoke53371,0:print"[147][194]ye...":poke788,49:end
590 goto300
591 print""tab(33);
592 input ra
593 print"":print""tab(33)":"
594 goto 300
600 rem tremolo
610 print""tab(10)"[150][212]remolo [197]ffect "
620 forl=15to3step-1
630 pokela,lorfm:forl1=0tort:nextl1
640 nextl
650 forl=3to15:pokela,lorfm
660 forl1=0tort:nextl1
670 nextl
680 geta$:ifa$=""then620
685 print""tab(10)"[212]remolo [197]ffect "
690 a=15:goto300
691 print""tab(33);
692 input rt
693 print"":print""tab(33)":"
694 goto 300
700 rem filter ein/aus
705 ff=1-ff
710 b$=" on/[150]off"
715 if ff then b$="[153] on[146]/off"
720 print""tab(20)b$
725 rs=rsand240
730 rs=rsorff*8
735 poke la-1,rs
740 goto 300
750 rem resonanz ein/aus
755 fr=1-fr
760 b$=" on/[150]off"
765 if fr then b$="[153] on[146]/off"
770 print""tab(20)b$
775 rs=rsand8
780 rs=rsorfr*240
785 poke la-1,rs
790 goto 300
800 rem hochpass ein/aus
805 fh=1-fh
810 b$=" on/[150]off"
815 if fh then b$="[153] on[146]/off"
820 print""tab(20)b$
825 fm=fmand48
830 fm=fmorfh*64
835 poke la,fmora
840 goto 300
850 rem bandpass ein/aus
855 fb=1-fb
860 b$=" on/[150]off"
865 if fb then b$="[153] on[146]/off"
870 print""tab(20)b$
875 fm=fmand80
880 fm=fmorfb*32
885 poke la,fmora
890 goto 300
900 rem tiefpass ein/aus
905 ft=1-ft
910 b$=" on/[150]off"
915 if ft then b$="[153] on[146]/off"
920 print""tab(20)b$
925 fm=fmand96
930 fm=fmorft*16
935 poke la,fmora
940 goto 300
950 rem grenzfrequenz
960 ifa$="+"thengf=gf+2:ifgf>255thengf=254
961 ifa$="[133]"thengf=50
962 ifa$="[134]"thengf=90
963 ifa$="[135]"thengf=140
964 ifa$="[136]"thengf=200
965 ifa$="-"thengf=gf-2:ifgf<0thengf=0
966 print""tab(34)" [157][157][157][157]"gf""
970 pokesi+22,gf
999 goto 300
1000 print""tab(33);
1002 input rh
1004 print"":print""tab(33)":"
1006 goto 300
1010 print""tab(33);
1012 input ro
1014 print"":print""tab(33)":"
1016 goto 300
1020 print""tab(33);
1022 input ri
1024 print"":print""tab(33)":"
1026 goto 300
1100 rem woi - woi
1110 printtab(10)"[150][215]ah - [215]ah"
1120 forl=50to200step5
1130 poke si+22,l
1140 forl1=0torh:nextl1
1150 geta$:ifa$<>""then1190
1160 next
1180 goto 1120
1190 printtab(10)"[215]ah - [215]ah":pokesi+22,gf:goto300
1300 rem wah - wah
1310 printtab(10)"[150][215]oi - [215]oi"
1320 forl=200to50step-5
1330 poke si+22,l
1340 forl1=0toro:nextl1
1350 geta$:ifa$<>""then1390
1360 next
1380 goto 1320
1390 printtab(10)"[215]oi - [215]oi":pokesi+22,gf:goto300
1500 rem wah - woi
1510 printtab(10)"[150][215]ah - [215]oi"
1520 forl=50to200step5
1530 pokesi+22,l
1540 forl1=0tori:nextl1,l
1550 get a$:ifa$<>""then1700
1560 forl=200to50step-5
1570 pokesi+22,l:forl1=0tori:nextl1,l
1580 geta$:ifa$<>""then1700
1590 goto 1520
1700 poke si+22,gf
1710 printtab(10)"[215]ah - [215]oi"
1720 goto 300